home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / bmenu.arc / BMENU.BAS
Encoding:
BASIC Source File  |  1985-12-28  |  6.0 KB  |  135 lines
  1. 10 KEY OFF:COLOR 15,0,1:WIDTH 80:CLS
  2. 20 LOCATE 2,33:PRINT "BASIC MENU"
  3. 30 LOCATE 3,33:PRINT "5555555555"
  4. 40 LOCATE 5,30:PRINT "       "
  5. 50 LOCATE 6,30:PRINT "         "
  6. 60 LOCATE 7,30:PRINT "       "
  7. 70 LOCATE 9,34:PRINT "CHCK-WARE"
  8. 80 LOCATE 11,25:PRINT "CHRIS HABECK & CRAIG KAMMAN"
  9. 90 COLOR 2:LOCATE 14,34:PRINT "PRESENTS:"
  10. 100 COLOR 4:LOCATE 16,34:PRINT "BASIC MENU"
  11. 110 COLOR 15:LOCATE 17,34:PRINT "----------"
  12. 120 LOCATE 23,30:PRINT "PRESS ENTER TO CONTINUE....":LOCATE 24,33:INPUT A$
  13. 130 IF A$=" " THEN 140
  14. 140 CLS:COLOR 15,0,12:CLS
  15. 150 LOCATE 2,35:PRINT "5555555555"
  16. 160 LOCATE 3,35:PRINT "BASIC MENU"
  17. 170 LOCATE 4,35:PRINT "5555555555"
  18. 180 LOCATE 6,32:PRINT "ENTER YOUR CHOICE:"
  19. 190 LOCATE 9,32:PRINT "[S] SELECT FILES"
  20. 200 LOCATE 10,32:PRINT "[A] ADD FILES"
  21. 210 LOCATE 11,32:PRINT "[Q] QUIT TO BASIC"
  22. 220 LOCATE 12,32:PRINT "[V] VIEW ALL FILES ON DISK"
  23. 225 LOCATE 13,32:PRINT "[E] EXIT TO DOS"
  24. 230 LOCATE 6,49:INPUT B$
  25. 240 IF B$="S" THEN 350
  26. 250 IF B$="s" THEN 350
  27. 260 IF B$="A" THEN 3400
  28. 270 IF B$="a" THEN 3400
  29. 280 IF B$="Q" THEN 720
  30. 290 IF B$="q" THEN 720
  31. 300 IF B$="V" THEN 900
  32. 310 IF B$="v" THEN 900
  33. 320 IF B$="E" THEN 3300
  34. 330 IF B$="e" THEN 3300        [S] SELECT FILES
  35. 350 COLOR 15,0,1:KEY OFF:CLS
  36. 360 LOCATE 2,30:PRINT "FILES FOR DRIVE A:"
  37. 370 LOCATE 5,25:PRINT "CHOOSE THE NUMBER (1-15)"
  38. 380 LOCATE 7,12:PRINT "[1] ?????  "
  39. 390 LOCATE 9,12:PRINT "[2] ?????  "
  40. 400 LOCATE 11,12:PRINT "[3] ?????  "
  41. 410 LOCATE 13,12:PRINT "[4] ????? "
  42. 420 LOCATE 15,12:PRINT "[5] ????? "
  43. 430 LOCATE 7,31:PRINT "[6] ????? "
  44. 440 LOCATE 9,31:PRINT "[7] ????? "
  45. 450 LOCATE 11,31:PRINT "[8] ????? "
  46. 460 LOCATE 13,31:PRINT "[9] ????? "
  47. 470 LOCATE 15,31:PRINT "[10] ????? "
  48. 480 LOCATE 7,51:PRINT "[11] ????? "
  49. 490 LOCATE 9,51:PRINT "[12] ????? "
  50. 500 LOCATE 11,51:PRINT "[13] ????? "
  51. 510 LOCATE 13,51:PRINT "[14] ????? "
  52. 520 LOCATE 15,51:PRINT "[15] ????? "
  53. 525 LOCATE 21,30:PRINT "[M] FOR MAIN MENU"
  54. 530 LOCATE 5,49:INPUT C$
  55. 540 IF C$="1" THEN GOTO 1000
  56. 550 IF C$="2" THEN GOTO 1020
  57. 560 IF C$="3" THEN GOTO 1040
  58. 570 IF C$="4" THEN GOTO 1060
  59. 580 IF C$="5" THEN GOTO 1080
  60. 590 IF C$="6" THEN GOTO 1100
  61. 600 IF C$="7" THEN GOTO 1300
  62. 610 IF C$="8" THEN GOTO 1500
  63. 620 IF C$="9" THEN GOTO 1700
  64. 630 IF C$="9" THEN GOTO 1900
  65. 640 IF C$="10" THEN GOTO 2100
  66. 650 IF C$="11" THEN GOTO 2300
  67. 660 IF C$="12" THEN GOTO 2500
  68. 670 IF C$="13" THEN GOTO 2700
  69. 680 IF C$="14" THEN GOTO 2900
  70. 690 IF C$="15" THEN GOTO 3100
  71. 700 IF C$="M" THEN GOTO 140
  72. 710 IF C$="m" THEN GOTO 140
  73. 720 COLOR 7,0,0:CLS:END
  74. 800 COLOR 7,0,0:CLS:END
  75. 900 COLOR 15,1,1:CLS:LOCATE 2,10:FILES
  76. 910 LOCATE 20,25:PRINT "PRESS [M] FOR MAIN MENU..."
  77. 920 LOCATE 20,51:INPUT D$
  78. 930 IF D$="M" THEN 140
  79. 940 IF D$="m" THEN 140
  80. 1000     'FILE [1] CHOSEN  - LOAD FILENAME PRINT PRINT PRINT PRINT PRINT PRINT
  81. 1010 COLOR 7,0,0:CLS:LOCATE 15,30:PRINT "LOADING #1....":LOAD"?????",R
  82. 1020       'FILE [2] CHOSEN - LOAD FILENAME ?????
  83. 1030 COLOR 7,0,0:CLS:LOCATE 15,30:PRINT "LOADING #2....":LOAD"?????",R
  84. 1040       'FILE [3] CHOSEN - LOAD FILENAME ??????
  85. 1050 COLOR 7,0,0:CLS:LOCATE 15,30:PRINT "LOADING #3....":LOAD"?????",R
  86. 1060       'FILE [4] CHOSEN - LOAD FILENAME ??????
  87. 1070 COLOR 7,0,0:CLS:LOCATE 15,30:PRINT "LOADING #4....":LOAD"?????",R
  88. 1080       'FILE [5] CHOSEN -LOAD FILENAME ??????
  89. 1090 COLOR 7,0,0:CLS:LOCATE 15,30:PRINT "LOADING #5....":LOAD"?????",R
  90. 1100       'FILE [6] CHOSEN - LOAD FILENAME ??????
  91. 1200 COLOR 7,0,0:CLS:LOCATE 15,30:PRINT "LOADING #6....":LOAD"?????",R
  92. 1300       'FILE [7] CHOSEN - LOAD FILENAME ??????
  93. 1400 COLOR 7,0,0:CLS:LOCATE 15,30:PRINT "LOADING #7.....":LOAD"?????",R
  94. 1500     'FILE [8] CHOSEN - LOAD FILENAME ??????
  95. 1600 COLOR 7,0,0:CLS:LOCATE 15,30:PRINT "LOADING #7....":LOAD"?????",R
  96. 1700       'FILE [9] CHOSEN - LOAD FILENAME ??????
  97. 1800 COLOR 7,0,0:CLS:LOCATE 15,30:PRINT "LOADING #9....":LOAD"?????",R
  98. 1900 REM   'FILE [10] CHOSEN - LOAD FILENAME ??????
  99. 2000 COLOR 7,0,0:CLS:LOCATE 15,30:PRINT "LOADING #10...":LOAD"?????",R
  100. 2100       'FILE [10] CHOSEN - LOAD FILENAME ??????
  101. 2200 COLOR 7,0,0:CLS:LOCATE 15,30:PRINT "LOADING #10...":LOAD"?????",R
  102. 2300       'FILE [11] CHOSEN - LOAD FILENAME ??????
  103. 2400 COLOR 7,0,0:CLS:LOCATE 15,30:PRINT "LOADING #11...":LOAD"?????",R
  104. 2500       'FILE [12] CHOSEN - LOAD FILENAME ??????
  105. 2600 COLOR 7,0,0:CLS:LOCATE 15,30:PRINT "LOADING #12...":LOAD"?????",R
  106. 2700       'FILE [13] CHOSEN - LOAD FILENAME ??????
  107. 2800 COLOR 7,0,0:CLS:LOCATE 15,30:PRINT "LOADING #13...":LOAD"?????",R
  108. 2900       'FILE [14] CHOSEN - LOAD FILENAME ??????
  109. 3000 COLOR 7,0,0:CLS:LOCATE 15,30:PRINT "LOADING #14...":LOAD"?????",R
  110. 3100       'FILE [15] CHOSEN - LOAD FILENAME ??????
  111. 3200 COLOR 7,0,0:CLS:LOCATE 15,30:PRINT "LOADING #15...":LOAD"?????",R
  112. 3300 COLOR 7,0,0:CLS:SYSTEM
  113. 3400    'ADD A FILE - DOCUMENTATION
  114. 3500 COLOR 15,1,1:CLS:LOCATE 2,30:PRINT "HOW TO ADD FILES"
  115. 3600 PRINT "TO HAVE FILES ON THIS MENU TO SELECT FROM YOU WILL HAVE TO GET"
  116. 3700 PRINT "ALL THE .BAS WRITTEN DOWN OR JUST REMEBERED, THE .BAS FILES YOU"
  117. 3800 PRINT "WISH TO BE ABLE TO SELECT AND RUN. THEN YOU WELL HAVE TO USE EDIT"
  118. 3900 PRINT "OR LIST COMMAND AND CHANGE THE ?????? TO THE FILENAMES YOU WISH."
  119. 4000 PRINT "LINE NUMBERS 380-520 WILL APPEAR AFTER YOU SELECET S FROM THE MAIN"
  120. 4100 PRINT "MENU.  USE `EDIT 380'<ENTER> AND LINE 380 WILL APPEAR. MOVE THE "
  121. 4200 PRINT "ARROW KEY TO THE ??????? THEN REPLACE IT WITH A FILENAME. DO THAT"
  122. 4300 PRINT "WITH 380-520.  THEN TO BEABLE TO HAVE IT RUN, USE THE SAME COMMAND"
  123. 4400 PRINT "EXCEPT USE LINES 1000-3200 AND CHANGE LOAD'???????',R TO "
  124. 4500 PRINT "LOAD'yourfile',R   I AM GOING TO FIGURE OUT A BETTER WAY TO DO"
  125. 4600 PRINT "THIS..BUT RIGHT NOW.. THIS IS THE ONLY WAY.. IF YOU HAVE ANY "
  126. 4700 PRINT "SUGGESTIONS ON HOW TO ADD FILES TO THIS.PLEASE SEND IT TO:"
  127. 4800 PRINT "  CRAIG KAMMAN "
  128. 4900 PRINT "3320 MN. LANE PLY. MN. 55441"
  129. 5000 PRINT " A CONTROBUTION OF 2$ OR MORE WOULD BE GREATLY APPRECIATED.."
  130. 5100 PRINT " THANKS!   AND ENJOY 'BASIC MENU'....."
  131. 5200 LOCATE 20,30:PRINT "PRESS [M] FOR MAIN MENU.."
  132. 5300 LOCATE 20,55:INPUT Z$
  133. 5400 IF Z$="M" THEN 140
  134. 5500 IF Z$="m" THEN 140
  135.